home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 April: Mac OS SDK / Dev.CD Apr 98 SDK2.toast / Development Kits (Disc 2) / ScriptX / Documentation / Code Examples from Docs / langguid / chap_06 / xmpl_10.sx < prev    next >
Encoding:
Text File  |  1996-05-21  |  474 b   |  17 lines  |  [TEXT/ttxt]
  1. --<<<
  2. -- Kaleida Labs, Inc.
  3. -- Field Guide to the ScriptX Language
  4. -- chapter 6, example 10
  5.  
  6. -- adding a virtual iv to a class derived from TextPresenter
  7. class MyTextPresenter (TextPresenter) end
  8. method lineWidthGetter self {class MyTextPresenter} -> (
  9.     return self.stroke.lineWidth
  10. )
  11. -- now create a test of lineWidthGetter
  12. object myTP (MyTextPresenter)
  13.     stroke:blackBrush, fill:whiteBrush
  14.     boundary:(new Rect x2:200 y2:200), target:"inconceivable"
  15. end
  16. myTP.lineWidth
  17. -->>>